2013-05-25 2 views
0

Учитывая следующие настройки:R: Не понимая цель кода

area.factor <- cut(state.x77[,"Area"], 
        breaks=quantile(state.x77[,"Area"],c(0,.25,.75,1)), 
        labels=c("small","medium","large"), 
        include.lowest=TRUE) 

state <- data.frame(pop=state.x77[,"Population"], 
       inc=state.x77[,"Income"], 
       area=area.factor, 
       region=state.region) 

pop.area.region <- with(state,ftable(pop,area,region)) 

Следующие две строки кода показывают один и тот же результат:

head(ftable(prop.table(pop.area.region,margin=2))) 

head(prop.table(pop.area.region,margin=2)) 

Я не понимаю, что эффект добавления ftable имеет, если таковые имеются, в:

head(ftable(prop.table(pop.area.region,margin=2))) 
+0

В чем вопрос? Есть ли часть кода, который вы не понимаете? Вы хотите знать, как это работает, что оно производит или почему оно реализовано так, как оно есть? – Backlin

+2

Я думаю, что дерево спрашивает, какой эффект включает в себя ftable на prop.table (pop.area.region, margin = 2). –

+0

@Backlin & Mark Miller Оба вы правы. – time

ответ

3

Добавление ftable witll пытаются принудить pop.area .области до ftable class. Здесь Не нужно добавлять ftable, так как pop.area.region уже является ftable.

identical(ftable(prop.table(pop.area.region,margin=2)), 
       prop.table(pop.area.region,margin=2)) 
TRUE 
Смежные вопросы