Create a summary scoring function in R using the following summary score information:

Baby Pediatric Symptom Checklist

Summary score

$$ Variables: BSCNWPPL$\_$C$,$ BSCNWPLCS$\_$C$,$ BSCCHG$\_$C$,$ BSCHLOPPL$\_$C$,$ BSCCRYALT$\_$C$,$

BSCCLMDWN$\_$C$,$ BSCFUSSY$\_$C$,$ BSCSTHE$\_$C$,$ BSCSCHD$\_$C$,$ BSCPTSLP$\_$C$,$

BSCSTYSLP$\_$C$,$ BSCPRLKSL$\_$C

$$ Values of $$Refused$,$Not Ascertained$,$ and $$Don$$t Know$$ should be coded as NA

$$ Requires at least $8$ of the $12$ items to be non$-$missing in order to calculate the score. Otherwise,

the score should be missing.

$$ This summary score is the mean of all items

$$ High score means higher symptoms

$$ Variable name: BPSC$\_$SCORE

Child Behavior

Summary Score

$$ Variables: BEHDFPLYG$\_$C$,$ BEHKBHYG$\_$C$,$ BEHDFCNTR$\_$C$,$ BEHDFFCS$\_$C$,$ BEHDFCHG$\_$C$,$

BEHDFMKFR$\_$C

$$ Values of $$Refused$,$Not Ascertained$,$ and $$Don$$t Know$$ should be coded as NA

$$ Requires at least $4$ of the $6$ items to be non$-$missing om order to calculate the score. Otherwise,

the score should be missing.

$$ Reverse code all variables by subtracting the value from $5$

$$ The summary score is the mean of all items after recoding multiplied by $6$

$$ Variable name: BEH$\_$SCORE