CalcAvgsAndIndices <- function (data) {
data$Platy_upr2skut <- data$Platy_upraveny/data$Platy_skutecnost
data$Zam_upr2skut <- data$Zam_upraveny/data$Zam_skutecnost
data$OPPP_upr2skut <- data$OPPP_upraveny/data$OPPP_skutecnost
data$AvgSal_upraveny <- data$Platy_upraveny/data$Zam_upraveny*1000/12
data$AvgSal_skutecnost <- data$Platy_skutecnost/data$Zam_skutecnost*1000/12
data$AvgSal_schvaleny <- data$Platy_schvaleny/data$Zam_schvaleny*1000/12
data$AvgSal_upr2skut <- data$AvgSal_upraveny/data$AvgSal_skutecnost
data$AvgSal_uprMinusskut <- data$AvgSal_upraveny-data$AvgSal_skutecnost
data$Zam_uprMinusskut <- data$Zam_upraveny-data$Zam_skutecnost
data$Zam_upr2skut <- data$Zam_upraveny/data$Zam_skutecnost
return(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.