I need to plot a bifurcation diagram for the following non-linear systems represented by the next Mathematica code
With[{Pr = 10, α = 1.181, β = 0.675, v = 0.77, λ = 8/3},
s = ParametricNDSolveValue[{
x'[t] == Pr v (y[t] - x[t]),
y'[t] == R (β/v) x[t] - α y[t] - (β/v) (R - (α v)/β) x[t] z[t],
z'[t] == α λ (x[t] y[t] - z[t]),
x[0] == y[0] == 0.8,
z[0] == 0.92195},
z[t], {t, 0, T}, {R, T}, MaxSteps -> ∞]]