Plot in Wolfram Mathematica 10.3

Question

I've been working on my statistics homework, where I'm supposed to build a maximum likelihood function, and then plot it. But for some reason mathematica shows me a graph without a plot:

Here is my script:

caseLike[[Phi], y] := ([Phi]^y)*((1 - [Phi])^(1 - y))

totalLike[[Phi], data] := !( *UnderoverscriptBox[([Product]), (i = 1), (5)]((caseLike[[Phi], data[i]])))

Length[totalLike[[Phi], data_List]]

totalLike[[Phi], {0, 1, 1, 0, 1,}] (1 - [Phi])^( 5 - {0, 1, 1, 0, 1, Null}1 - {0, 1, 1, 0, 1, Null}[ 2] - {0, 1, 1, 0, 1, Null}[3] - {0, 1, 1, 0, 1, Null}[ 4] - {0, 1, 1, 0, 1, Null}[5]) !(*SuperscriptBox[([Phi]), ({0, 1, 1, 0, 1, Null}[ 1] + {0, 1, 1, 0, 1, Null}[2] + {0, 1, 1, 0, 1, Null}[ 3] + {0, 1, 1, 0, 1, Null}[4] + {0, 1, 1, 0, 1, Null}[5])])

Plot[totalLike[[Phi], data], {data, 0, 1}]