istatistik

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

{r} library(dplyr) library(MASS) {r} data('survey') head(survey) tail(survey) names(survey)

{r} veri1 <- survey %>% dplyr:: select (Sex,Age,Smoke,Height,Exer,Pulse)

{r} veri2 <- veri1 %>% rename (yas=Age, cinsiyet=Sex, sigara=Smoke, nabiz=Pulse, egzersiz=Exer, boy=Height)

{r} veri2 %>% count(egzersiz)#frekansı bulmak için

{r} veri2 %>% count(egzersiz,cinsiyet,sigara) %>% mutate(yuzde=round((n/sum(n)) *100,2))