df <- data.frame(a = 1:7,
b = 7:1)
df
df <- within(df,{
ab <- a + b
a2b2 <- a^2 + b^2
})
df
df <- data.frame(a = 1:7,
b = 7:1)
df <- Within(df,{
ab <- a + b
a2b2 <- a^2 + b^2
})
df
df <- data.frame(a = 1:7,
b = 7:1)
df
ds <- as.data.set(df)
ds
df %$$% {
ab <- a + b
a2b2 <- a^2 + b^2
}
df
ds %$$% {
ab <- a + b
a2b2 <- a^2 + b^2
}
ds
df %$% c(a.ssq = sum(a^2),
b.ssq = sum(b^2))
Run the code above in your browser using DataLab