istatistik dersi

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

{r} library(dplyr) library(MASS) {r} data("survey") summary(survey) {r} mean(survey$ Age) mean(survey$ Pulse) mean(survey$Fold) {r} survey$Height<-as.numeric(survey$Height) {r} median(survey$Age) median(survey$Smoke)

{r} veri<-na.omit(survey) summary(veri) mean(veri$Age) mean(veri$Smoke) {r} library(lsr) modeOf(survey$Age) modeOf(survey$Smoke) modeOf(survey$Height)