$>$ mean$\_$price $<-$ mean$($price$\_$column, na$.$rm $=$ TRUE$)$

$>$ sd$\_$price $<-$ sd$($price$\_$column, na$.$rm $=$ TRUE$)$

$>$ lower$\_$bound $<-$ mean$\_$price $-$ sd$\_$price

$>$ upper$\_$bound $<-$ mean$\_$price $+$ sd$\_$price

$>$ within$\_$one$\_$sd $<-$ price$\_$column$[$price$\_$column $>=$ lower$\_$bound & price$\_$column $<=$ upper$\_$bound$]$

$>$ percentage$\_$within$\_$one$\_$sd $<-$ length$($within$\_$one$\_$sd$)/$ length$($price$\_$column$)*100$

$>$ cat$("$Percentage of observations within one standard deviation of the mean:", percentage$\_$within$\_$one$\_$sd$,"\%$

$")$

Percentage of observations within one standard deviation of the mean: $85\%$ is this code correct